﻿Public Class clsSysParam
    Public Function selectAgvSwitch() As DataTable
        Dim szSql As String = ""
        szSql &= "SELECT * FROM sf.t_sys_param WHERE param_key = ? "
        Dim dt As DataTable = DBacs.ExecuteSql(szSql, -1, "agv_switch")
        If IsNothing(dt) Then
            selectAgvSwitch = New DataTable
        Else
            selectAgvSwitch = dt
        End If
    End Function


    Public Function selectLH_Out_Warning_Minute() As DataTable
        Dim szSql As String = String.Empty
        szSql &= "SELECT * FROM sf.t_sys_param WHERE param_key = ? "
        Dim dt As DataTable = DBacs.ExecuteSql(szSql, -1, "LH_Out_Warning_Minute")
        If IsNothing(dt) Then
            selectLH_Out_Warning_Minute = New DataTable
        Else
            selectLH_Out_Warning_Minute = dt
        End If
    End Function
End Class
